home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Pushdown Machine 2.3.cpt / Pushdown Machine 2.3 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-05-04  |  3KB  |  28 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3</name>
  5.     <id>-1</id>
  6.     <cardCount>6</cardCount>
  7.     <cardID>2879</cardID>
  8.     <listID>6408</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal DefaultLoudnessput getVolume() into DefaultLoudnessVolume 3if  the userLevel < 3  then  set the userLevel to 3set the textArrows to truehide message boxif  the top of card window <= 30  then  hide menubardelete menu "Edit"delete menu "Go"delete menu "Tools"delete menu "Objects"delete menu "Font"delete menu "Style"CustomMenuif  the version of HyperCard < 2  thenanswer "Sorry, HyperCard 2.0 or later is required."doMenu "Quit HyperCard"end ifend openStackon closeStackglobal DefaultLoudnessif  freeSize of this stack >= 10000  thenput "Compacting Stack...  ("&  ¬¨freeSize of this stack&" of "&size of this stack&")"doMenu "Compact Stack"put emptyend ifhide message boxreset menuBarVolume DefaultLoudnessend closeStackon CustomMenuif  there is no menu "Machine"  then  create menu "Machine"put "Run,Step" into menu "Machine" with menuMsgs "RunMachine,StepMachine"put "-" after menuItem 2 of menu "Machine"repeat  with N = 1 to number of cards in background "Machine"put  background field "MachineTitle"  ¬¨of card N of background "Machine"  ¬¨after menuItem 2+N of menu "Machine"end repeatset commandChar of menuItem 1 of menu "Machine" to "R"set commandChar of menuItem 2 of menu "Machine" to "S"end CustomMenuon doMenu  item,menuif  (menu = "Machine") and (item <> "Run") and (item <> "Step")  thenrepeat  with N = 1 to number of cards in background "Machine"if item = background field "MachineTitle"  ¬¨of card N of background "Machine"  thenvisual effect scroll upgo card N of background "Machine"exit repeatend ifend repeatelsepass doMenuend ifend doMenu</script>
  17.     <background id="2320" file="background_2320.xml" name="Help" />
  18.     <background id="2571" file="background_2571.xml" name="Machine" />
  19.     <background id="5546" file="background_5546.xml" name="InfoBackground" />
  20.     <background id="5653" file="background_5653.xml" name="Black" />
  21.     <card id="2879" file="card_2879.xml" marked="false" name="" owner="2571" />
  22.     <card id="3649" file="card_3649.xml" marked="false" name="" owner="2571" />
  23.     <card id="4154" file="card_4154.xml" marked="false" name="" owner="2571" />
  24.     <card id="5916" file="card_5916.xml" marked="false" name="" owner="5653" />
  25.     <card id="4546" file="card_4546.xml" marked="false" name="" owner="2320" />
  26.     <card id="6257" file="card_6257.xml" marked="false" name="" owner="5546" />
  27. </stack>
  28.